home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
cubic-2.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-23
|
962b
|
35 lines
100 INPUT "ENTER COEFFICIENT B"; B
105 INPUT "ENTER COEFFICIENT C"; C
110 INPUT "ENTER COEFFICIENT D"; D
115 P = C -(B^2)/3
120 PRINT P "VALUE OF P"
125 Q = D - B*C/3 + (2*(B^3)/27)
130 PRINT Q "VALUE OF Q"
135 V =-(P^3)/27
140 PRINT V "VALUE OF V"
145 WA = (-Q+((Q^2)-4*V)^.5)/2
150 PRINT WA "VALUE OF WA"
155 WB = (-Q-((Q^2)-4*V)^.5)/2
160 PRINT WB "VALUE OF WB"
165 IF WA = -WA GOTO 175 ELSE 170
170 ZA = (WA)^(1/3)
175 PRINT ZA "VALUE OF ZA"
180 IF WB = WB GOTO 190 ELSE 185
185 ZB = (WB)^(1/3)
190 PRINT ZB "VALUE OF ZB"
195 IF ZA = 0 GOTO 205 ELSE 200
200 YA = ZA - P/(3*ZA)
205 PRINT YA "VALUE OF YA"
210 IF ZB = 0 GOTO 220 ELSE 215
215 YB = ZB - P/(3*ZB)
220 PRINT YB "VALUE OF YB"
225 IF YA = 0 GOTO 235 ELSE 230
230 XA = YA - B/3
235 IF YB = 0 GOTO 250 ELSE 240
240 XB = YB - B/3
245 IF YA = 0 GOTO 265 ELSE 250
250 PRINT XA "FIRST VALUE OF X"
255 IF YB = 0 GOTO 265 ELSE 260
260 PRINT XB "SECOND VALUE OF X"
265 END